Para falar a verdade nunca utilizei estas funcionalidades profissionalmente, só em estudos.
Module Sons_Avisos_Alertas

    Public Sub TocaWav()
        'tocando um arquivo wav
        My.Computer.Audio.Play("c:\pasta\chord.wav") 'cuidado, se o arquivo não existir da erro

    End Sub

    Public Sub TocaSonsSistema()
        My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
    End Sub

    Public Sub Beep()
        System.Console.Beep()
    End Sub

    Public Sub GeraFrequenciasBaixaAltas()
        Dim x As Integer

        For x = 37 To 32000 Step 1000
            Console.WriteLine(x)
            System.Console.Beep(x, 1000) '1000=freq e duração (ms)
        Next
    End Sub
End Module